home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / frmtest4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-22  |  2.4 KB  |  80 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTest4 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   2820
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   3396
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2820
  13.    ScaleMode       =   0  'User
  14.    ScaleWidth      =   3500
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CheckBox chkSysMenu 
  17.       Caption         =   "SysMenu"
  18.       Height          =   192
  19.       Left            =   180
  20.       TabIndex        =   5
  21.       Top             =   1320
  22.       Width           =   2712
  23.    End
  24.    Begin VB.CheckBox chkVisible 
  25.       Caption         =   "Visible"
  26.       Height          =   192
  27.       Left            =   180
  28.       TabIndex        =   4
  29.       Top             =   1620
  30.       Width           =   2712
  31.    End
  32.    Begin VB.CheckBox chkChild 
  33.       Caption         =   "Child"
  34.       Height          =   192
  35.       Left            =   180
  36.       TabIndex        =   3
  37.       Top             =   720
  38.       Width           =   2712
  39.    End
  40.    Begin VB.CheckBox chkCaption 
  41.       Caption         =   "Caption"
  42.       Height          =   192
  43.       Left            =   180
  44.       TabIndex        =   2
  45.       Top             =   420
  46.       Width           =   2712
  47.    End
  48.    Begin VB.CheckBox chkBorder 
  49.       Caption         =   "Border"
  50.       Height          =   192
  51.       Left            =   180
  52.       TabIndex        =   1
  53.       Top             =   120
  54.       Width           =   2712
  55.    End
  56.    Begin VB.CheckBox chkDisabled 
  57.       Caption         =   "Disabled"
  58.       Height          =   192
  59.       Left            =   180
  60.       TabIndex        =   0
  61.       Top             =   1020
  62.       Width           =   2712
  63.    End
  64. Attribute VB_Name = "frmTest4"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Option Explicit
  70. Public Sub RefreshStyles()
  71.    Dim w As sgWindow.Window
  72.    Set w = frmMain.g_wndTest
  73.    chkBorder.Value = IIf(w.Style And ws_BORDER, 1, 0)
  74.    chkCaption.Value = IIf(w.Style And ws_CAPTION, 1, 0)
  75.    chkChild.Value = IIf(w.Style And ws_CHILD, 1, 0)
  76.    chkDisabled.Value = IIf(w.Style And ws_DISABLED, 1, 0)
  77.    chkSysMenu.Value = IIf(w.Style And ws_SYSMENU, 1, 0)
  78.    chkVisible.Value = IIf(w.Style And ws_VISIBLE, 1, 0)
  79. End Sub
  80.